* lisp/subr.el (with-silent-modifications): Minor simplification
authorStefan Monnier <monnier@iro.umontreal.ca>
Fri, 7 Jun 2024 14:57:11 +0000 (10:57 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Fri, 7 Jun 2024 14:57:11 +0000 (10:57 -0400)
lisp/subr.el

index 57c6f8a528fc860e05fc7c32b0286db5424e6990..e2e211369c94ee7e49656c25665a80b260e9fb90 100644 (file)
@@ -5082,8 +5082,7 @@ of that nature."
        (unwind-protect
            (progn
              ,@body)
-         (when (or (not ,modified)
-                   (eq ,modified 'autosaved))
+         (when (memq ,modified '(nil autosaved))
            (restore-buffer-modified-p ,modified))))))
 
 (defmacro with-output-to-string (&rest body)